home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 6 / Commodore_Disc_06_19xx_-_de.d64 / a - z quiz.64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  18.4 KB  |  444 lines
  1. 10 z=31:da=207:g=0:o=0:jk=1000:m=1
  2. 20 poke53280,0:poke53281,0
  3. 30 a$(1)="*******":n$(1)="*******"
  4. 40 a$(2)="*     *":n$(2)="      *"
  5. 50 a$(3)="*     *":n$(3)="     *"
  6. 60 a$(4)="*     *":n$(4)="    *"
  7. 70 a$(5)="*******":n$(5)="   *"
  8. 80 a$(6)="*     *":n$(6)="  *"
  9. 90 a$(7)="*     *":n$(7)=" *"
  10. 100 a$(8)="*     *":n$(8)="*"
  11. 110 a$(9)="*     *":n$(9)="*******"
  12. 120 print"[147]"
  13. 130 forq=1to7:j=j+1:z=z-1
  14. 140 fori=1to9:poke646,q:printtab(j);a$(i);tab(z);n$(i):next
  15. 150 print"":forr=1toq:print"";:next
  16. 160 nextq
  17. 170 :print"*"
  18. 180 :print"******"
  19. 190 :print"     *"
  20. 200 print"[159]ein unterhaltsames spiel von"
  21. 210 print"         tom ossieck"
  22. 220 forq=1to120:nextq
  23. 230 fori=1to300:poke53280,1:::::::::::::::::::::::::::poke53280,0:next
  24. 240 print"daten werden gelesen":forq=1to400:nextq
  25. 250 rem *** dim ***
  26. 260 dimb$(500):dimc$(500):dimv$(500):dima(500)
  27. 270 rem *** daten lesen ***
  28. 280 fori=1toda
  29. 290 readb$(i),c$(i)
  30. 300 nexti
  31. 310 rem *** menue ***
  32. 320 :poke53280,3
  33. 330 print"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  34. 340 print"[145][152][180]             menueauswahl             [170]"
  35. 350 print"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  36. 360 print"[145][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  37. 370 print"[145][180]                waehle                [170]"
  38. 380 print"[145][180]                [160]                     [170]"
  39. 390 print"[145][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  40. 400 print"[145][180]    1 : weitere fragen laden          [170]"
  41. 410 print"[145][180]                                      [170]"
  42. 420 print"[145][180]    2 : selber fragen und antworten   [170]"
  43. 430 print"[145][180]        machen und abspeichern        [170]"
  44. 440 print"[145][180]                                      [170]"
  45. 450 print"[145][180]    3 : mit dem spiel beginnen        [170]"
  46. 460 print"[145][180]                                      [170]"
  47. 470 print"[145][180]    4 : anleitung                     [170]"
  48. 480 print"[145][180]                                      [170]"
  49. 490 print"[145][180]    5 : spiel beenden                 [170]"
  50. 500 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  51. 510 print"[145][158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  52. 520 print"[145][158][180]          deine wahl :                [170]"
  53. 530 print"[145][158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  54. 540 getx$:ifx$=""then540
  55. 550 ifx$="1"then610
  56. 560 ifx$="2"then830
  57. 570 ifx$="3"then1060
  58. 580 ifx$="4"then3900
  59. 590 ifx$="5"then3880
  60. 600 ifx$<>"1"andx$<>"2"andx$<>"3"andx$<>"4"andx$<>"5"then540
  61. 610 print"[158][145][145][145]";x$
  62. 620 forq=1to500:nextq
  63. 630 rem *** fragen laden ***
  64. 640 fori=1to250:nexti:poke53280,2
  65. 650 print"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  66. 660 print"[145][152][180]           fragen laden               [170]"
  67. 670 print"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  68. 680 print"[158]          dateiname :                   ":print
  69. 690 poke19,64:input"[158][145][145][145]";a$:poke19,0:print
  70. 700 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  71. 710 print"[145][180]         datei wird geladen           [170]"
  72. 720 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  73. 730 open10,8,10,a$+",s,r"
  74. 740 i=0
  75. 750 i=i+1
  76. 760 input#10,b$(i)
  77. 770 ifb$(i)="*"then800
  78. 780 input#10,c$(i)
  79. 790 goto750
  80. 800 b$(i)=""
  81. 810 close10
  82. 820 x$="":da=i:goto320
  83. 830 rem *** fragen machen ***
  84. 840 print"[158][145][145][145]";x$:fori=1to500:nexti
  85. 850 poke53280,2
  86. 860 print"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  87. 870 print"[145][152][180]     fragen und antworten machen      [170]"
  88. 880 print"[145][152][180]           und abspeichern            [170]"
  89. 890 print"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  90. 900 print"[158]          dateiname :                   ":print
  91. 910 poke19,64:input"[158][145][145][145]";a$:poke19,0:print
  92. 920 c=0
  93. 930 print"[147]"
  94. 940 c=c+1
  95. 950 poke19,64:printc;:input".) frage : ";b$(c):poke19,0:print:print
  96. 960 ifb$(c)="*"then990
  97. 970 poke19,64:printc;:input".) antwort : ";c$(c):poke19,0:print:print
  98. 980 goto930
  99. 990 open10,8,10,a$+",s,w"
  100. 1000 fori=1toc
  101. 1010 print#10,b$(i)
  102. 1020 print#10,c$(i)
  103. 1030 nexti
  104. 1040 close10
  105. 1050 x$="":goto320
  106. 1060 rem *** hauptspiel ***
  107. 1070 print"[158][145][145][145]";x$:fori=1to500:nexti
  108. 1080 poke53280,2
  109. 1090 print"[152][147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  110. 1100 print"[152][145][180]                spiel                 [170]"
  111. 1110 print"[152][145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  112. 1120 print:poke19,64:input"[158]anzahl der mitspieler : ";an:poke19,0:print:print
  113. 1130 ifan>8oran<1thenprint"[145][145][145][145]":goto1120
  114. 1140 print:print:forn=1toan
  115. 1150 poke19,64:print"name spieler";n;:input" : ";sp$(n):poke19,0:print:next
  116. 1160 i=int(da*rnd(0)+1)
  117. 1170 ifa(i)=1then1160
  118. 1180 o=o+1:ifo=200thenn$="endauswertung":goto4150
  119. 1190 a(i)=1
  120. 1200 sp=sp+1:ifsp>anthensp=1
  121. 1210 letl=len(c$(i)):d=l
  122. 1220 ifm=1thengosub1720
  123. 1225 m=1
  124. 1230 print"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  125. 1240 print"[145][152][180]                                      [170]"
  126. 1250 print"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  127. 1260 print"[145][145][145][152]spieler : ";sp$(sp);"punkte :";pu(sp)
  128. 1270 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  129. 1280 print"[145][180]                                      [170]"
  130. 1290 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  131. 1300 print"[145][145][145]";b$(i)
  132. 1310 print"[158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  133. 1320 print"[145][180]                                      [170]"
  134. 1330 print"[145][158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  135. 1340 fors=1tol
  136. 1350 print"[145][145][145]";:forz=1tos:print"";:nextz:printv$(s);:print:print
  137. 1360 nexts
  138. 1370 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  139. 1380 print"[145][180] tippe 1 fuer einen loesungsversuch   [170]"
  140. 1390 print"[145][180] tippe 2 fuer einen hilfsbuchstaben   [170]"
  141. 1400 print"[145][180] tippe 3 fuer den naechsten begriff   [170]"
  142. 1410 print"[145][180] tippe 4 um ins hauptmenue zu kommen  [170]"
  143. 1420 print"[145][180] tippe 5 fuer zwischenauswertung      [170]"
  144. 1430 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  145. 1440 getx$:ifx$=""then1440
  146. 1450 ifx$="1"then1510
  147. 1460 ifx$="2"then1600
  148. 1470 ifx$="3"thenpu(sp)=pu(sp)-d:print"[158]";c$(i):forq=1tojk:nextq:goto1160
  149. 1480 ifx$="4"then310
  150. 1490 ifx$="5"thenn$="zwischenauswertung":goto4150
  151. 1500 ifx$<>"1"orx$<>"2"orx$<>"3"orx$<>"4"orx$<>"5"then1440
  152. 1510 rem *** loesungsversuch ***
  153. 1520 poke19,64:input"deine loesung : ";l$:poke19,0:print:print
  154. 1530 ifl$=c$(i)then1570
  155. 1540 print"[155]  deine loesung ist leider falsch !!!"
  156. 1550 forq=1to1500:nextq
  157. 1560 pu(sp)=pu(sp)-10:goto1230
  158. 1570 rem *** loesung richtig ***
  159. 1580 print"[155]gratuliere, deine loesung ist richtig."
  160. 1590 forq=1to1000:nextq:pu(sp)=pu(sp)+d:goto1160
  161. 1600 rem *** hilfsbuchstabe ***
  162. 1610 print"[155]hilfsbuchstabe : ";
  163. 1620 geth$:ifh$=""then1620
  164. 1630 printh$
  165. 1640 fork=1tol
  166. 1650 ifmid$(c$(i),k,1)=" "thengosub1790:goto1700
  167. 1660 ifmid$(c$(i),k,1)<>h$then1700
  168. 1670 letd=d-1
  169. 1680 letv$(k)=h$
  170. 1690 goto1700
  171. 1700 nextk
  172. 1710 goto1230
  173. 1720 fork=1tol
  174. 1730 ifmid$(c$(i),k,1)<>" "then1760
  175. 1740 letv$(k)=" "
  176. 1750 goto1770
  177. 1760 letv$(k)="."
  178. 1770 nextk
  179. 1780 return
  180. 1790 v$(k)=" ":return
  181. 1800 datawas ist ein minister ?,ein mitglied der regierung
  182. 1810 datawas ist chauvinismus ?,uebertriebener nationalismus
  183. 1820 datawas ist eine charta ?,eine urkunde
  184. 1830 datawas ist pazifismus ?,bestrebung zur beseitigung des krieges
  185. 1840 datawas ist demoskopie ?,die meinungsforschung
  186. 1850 datawas ist ein agreement ?,eine uebereinkunft
  187. 1860 datawas ist ein plenum ?,die vollversammlung eines parlaments
  188. 1870 datawas ist ein nansenpass ?,ein pass fuer staatenlose
  189. 1880 datawas ist terror ?,die schreckensherschaft
  190. 1890 datawas ist nationalismus ?,die ueberbewertung des nationalen
  191. 1900 datawas ist ein mandat ?,das amt eines abgeordneten
  192. 1910 datawas ist ein emigrant ?,ein auswanderer
  193. 1920 datawas ist der hammelsprung ?,eine abstimmungsmethode
  194. 1930 datawas ist eine petition ?,eine bitte an das parlament
  195. 1940 datawas ist ein kandidat ?,eine bewerber um ein amt
  196. 1950 datawas bedeutet legal ?,gesetzlich
  197. 1960 datawas ist das commonwealth ?,der britische staatenbund
  198. 1970 datawas ist eine legislative ?,die gesetzgebene gewalt
  199. 1980 datawas ist euratom ?,die europaeische atomgemeinschaft
  200. 1990 datawas bedeutet who ?,weltgesundheitsorganisation der un
  201. 2000 datawas ist eine allianz ?,ein buendnis
  202. 2010 datawas ist autarkie ?,die wirtschaftliche unabhaengigkeit
  203. 2020 datawas ist deportation ?,die verbannung von menschen
  204. 2030 datawas ist ein konsul ?,ein auslandsvertreter eines staates
  205. 2040 datawas sind konsumgueter ?,verbrauchsgueter
  206. 2050 datawas ist ein konkordat ?,ein vertrag zwischen kirche und staat
  207. 2060 datawas ist integration ?,ein zusammenschluss von staaten
  208. 2070 datawas ist das kabinet ?,die regierung
  209. 2080 datawas sind schoeffen ?,gewaehlte laienrichter
  210. 2090 datawas ist ein pakt ?,ein vertrag zwischen staaten
  211. 2100 datawas ist ein privileg ?,ein vorrecht
  212. 2110 datawas ist die exekutive ?,die vollziehende staatsgewalt
  213. 2120 datawas ist exil ?,verbannung
  214. 2130 datawas ist inflation ?,geldentwertung
  215. 2140 datawas bedeutet liberal ?,freisinnig
  216. 2150 datain welcher stadt ist der rote platz ?,moskau
  217. 2160 datawo steht die hagia sophia?,istanbul
  218. 2170 datawas ist eine osteria ?,ein italienisches wirtshaus
  219. 2180 datawo fand der meistertrunk statt ?,rothenburg
  220. 2190 datawo liegen die falklandinseln ?,suedatlantik
  221. 2200 datawas ist assam ?,ein indischer bundesstaat
  222. 2210 datawo liegen die dolomiten ?,suedtirol
  223. 2220 datawo ist das grab karls d. grossen ?,aachen
  224. 2230 datawo ist der dogenpalast ?,venedig
  225. 2240 datawo steht der big ben ?,london
  226. 2250 datawo liegt adelaide ?,australien
  227. 2260 datawo liegen die anden ?,suedamerika
  228. 2270 datawas ist eine hazienda ?,eine farm in suedamerika
  229. 2280 datazu welcher stadt gehoert harlem ?,new york
  230. 2290 databei welchem ort ist der rheinfall ?,schaffhausen
  231. 2300 datawo liegt die insel capri ?,im golf von neapel
  232. 2310 datawo liegt der gardasee ?,oberitalien
  233. 2320 datain welcher stadt ist die bastille ?,paris
  234. 2330 datain welchem land liegt brabant ?,belgien
  235. 2340 datawo liegt die stadt taipeh ?,auf formosa
  236. 2350 datain welcher stadt ist der prater ?,wien
  237. 2360 datawo sind die niagarafaelle ?,nordamerika
  238. 2370 datawie heisst die groesste kirche roms ?,peterskirche
  239. 2380 datawas ist polenta ?,eine italienische maisspeise
  240. 2390 datawo liegt genua ?,in italien am mittelmeer
  241. 2400 datawas ist porter ?,ein dunkles englisches bier
  242. 2410 datawas ist serengeti ?,afrikanischer nationalpark
  243. 2420 dataname des nationalmuseum in madrid?,prado
  244. 2430 datawo steht der grossglockner (land) ?,oesterreich
  245. 2440 datawo steht das kolosseum ?,rom
  246. 2450 datazu welcher stadt gehoert spandau ?,berlin
  247. 2460 datawo ist das theoderichgrab (stadt) ?,ravenna
  248. 2470 datazu welcher inselgruppe gehoert bali ?,sundainseln
  249. 2480 datazu welcher stadt gehoert schoeneberg ?,berlin
  250. 2490 datawo steht das holstentor (stadt) ?,luebeck
  251. 2500 datawo liegt die bukowina ?,rumaenien
  252. 2510 datawas versteht man unter atmosphaere ?,die lufthuelle der erde
  253. 2520 datawas ist eine raumsonde ?,forschungsrakete
  254. 2530 datawie heissen russische weltraumfahrer ?,kosmonauten
  255. 2540 datawie hiess die 1 russ. raumfahrerin ?,valentina tereschkowa
  256. 2550 datawie heissen amerik. weltraumfahrer ?,astronauten
  257. 2560 datawas versteht man unter 'g' ?,normale erdanziehungskraft
  258. 2570 datawas ist das apogaeum ?,erdfernste punkt eines sternes
  259. 2580 datawas sind asteroiden ?,kleine planeten
  260. 2590 datawas versteht man unter astronautik ?,weltraumfahrt
  261. 2600 datawelche aufgabe hatte nimbus 1 ?,wetterbeobachtung
  262. 2610 datawie heisst der groesste asteroid ?,ceres
  263. 2620 datawelche aufgabe hatte intelsat 2 ?,nachrichtenuebermittlung
  264. 2630 datawas ist ein erimit ?,ein einsiedler
  265. 2640 datawas ist eine eskorte ?,ein militaerisches geleit
  266. 2650 datawas ist laberdan ?,ein eingesalzener dorsch
  267. 2660 datawas ist eine furt ?,eine seichte stelle im fluss
  268. 2670 datawas ist ein globus ?,eine nachbildung der erdkugel
  269. 2680 datawas ist dinkel ?,eine weizenart
  270. 2690 datawas ist gneis ?,ein urgestein
  271. 2700 datawas ist ein gnu ?,eine suedafrikanische antilope
  272. 2710 datawas ist ein gimpel ?,ein dompfaff
  273. 2720 datawer waren die mayas ?,ein indianervolk mittelamerikas
  274. 2730 datawas versteht man unter monokultur ?,die einseitige bodennutzung
  275. 2740 datawas ist ein mikroskop ?,ein vergroesserungsgeraet
  276. 2750 datawas ist ein mikrometer ?,ein feinmessgeraet
  277. 2760 datawas ist mikronesien ?,eine inselgruppe im stillen ozean
  278. 2770 datawas ist ein magier ?,ein zauberer
  279. 2780 datawer ist manitu ?,indianergott
  280. 2790 datawas ist gamma ?,ein griechischer buchstabe
  281. 2800 datawas ist ein fresko ?,eine wandmalerei
  282. 2810 datawas ist lava ?,ein fluessiger vulkanauswurf
  283. 2820 datawas bedeutet obligatorisch ?,pflichtgemaess
  284. 2830 datawas ist vineta ?,eine versunkene stadt
  285. 2840 datawas ist eine heidschnucke ?,eine schafrasse
  286. 2850 datawie hiess hektors frau ?,andromache
  287. 2860 datawas ist ein skalp ?,kopfhaut mir haaren
  288. 2870 datawas ist ein atoll ?,eine ringfoermige koralleninsel
  289. 2880 datawas ist eine simili ?,ein imitierter edelstein
  290. 2890 datawas ist der superlativ ?,die hoechste steigerungsstufe
  291. 2900 datawer war diana ?,die roemische jagdgoettin
  292. 2910 datawas ist abstinenz ?,die enthaltsamkeit
  293. 2920 datawas ist ein grisly ?,ein nordamerikanischer baer
  294. 2930 datawer war grock ?,ein clown
  295. 2940 datawer zerschlug den gordischen knoten ?,alexander der grosse
  296. 2950 datawas ist ein ziegenbart ?,ein keulenpilz
  297. 2960 datawas ist ein welpe ?,ein junger hund
  298. 2970 datawas ist ein hadschi ?,ein mekkapilger
  299. 2980 was ist eine alternative print,eine wahl zwischen zwei moeglichkeiten
  300. 2990 datawer war laokoon ?,ein trojanischer priester
  301. 3000 datawas sind termiten ?,staatenbildende insekten
  302. 3010 datawas ist ein spleen ?,eine verschrobenheit
  303. 3020 datawas ist surrealismus ?,eine kunstrichtung
  304. 3030 datawas ist silikose ?,eine staubeinatmungskrankheit
  305. 3040 datawas ist ein sombrero ?,ein breitrandiger hut
  306. 3050 datawas ist ein trauermantel ?,ein schmetterling
  307. 3060 datawas ist ein trueffel ?,ein speisepilz
  308. 3070 datawas ist ein vakuum ?,ein fast luftleerer raum
  309. 3080 datawas ist ein duo ?,ein musikstueck fuer zwei instrumente
  310. 3090 datawas heisst vivace ?,lebhaft
  311. 3100 datawas ist eine variation ?,eine abwandlung des themas
  312. 3110 datawie hiess die schwester mozarts ?,nannerl
  313. 3120 datawer komponierte die oper norma ?,vincenzo bellini
  314. 3130 datawas bedeutet pianissimo ?,sehr leise
  315. 3140 datawas bedeutet a capella ?,gesang ohne musikbegleitung
  316. 3150 datawas ist eine balalaika ?,ein russisches saiteninstrument
  317. 3160 datawas bedeutet unisono ?,einstimmig
  318. 3170 datawas ist eine soubrette ?,ein rollenfach in der oper
  319. 3180 datawas bedeutet forte ?,laut
  320. 3190 datawas ist eine fermate ?,ein verlaengerungszeichen
  321. 3200 datawas ist ein praeludium ?,ein vorspiel
  322. 3210 datawas ist ein quartett ?,ein vierstimmiges tonstueck
  323. 3220 datawas sind kastagnetten ?,hoelzerne klapperschlangen
  324. 3230 datawas ist eine fuge ?,ein mehrstimmiger musiksatz
  325. 3240 datawas ist ein skelett ?,ein knochengeruest
  326. 3250 datawelcher mensch. knochen heisst atlas ?,der oberste halswirbel
  327. 3260 datawas ist heilserum ?,schutzstoff gegen infektionskrankheiten
  328. 3270 datawas ist pepsin ?,ein ferment des magensaftes
  329. 3280 datawie heisst das tabakgift ?,nikotin
  330. 3290 datawas ist eine injektion ?,eine einspritzung
  331. 3300 datawas ist insulin ?,ein hormon der bauchspeicheldruese
  332. 3310 datawozu braucht der magen pepsin ?,zum verdauen von eiweiss
  333. 3320 datawas ist tetanus ?,wundstarrkrampf
  334. 3330 datawo liegt das nervenzentrum ?,im gehirn
  335. 3340 datawie nennt man sauerstoffreiches blut ?,arterielles blut
  336. 3350 datawas ist die epidermis ?,die oberste hautschicht
  337. 3360 datawie heisst das teegift ?,tein
  338. 3370 datawas ist lipase ?,ein fettspaltendes ferment
  339. 3380 datawie heisst das gift im kaffee ?,koffein
  340. 3390 datawas ist blutplasma ?,der fluessige bestandteil des blutes
  341. 3400 datawas ist sepsis print,blutvergiftung
  342. 3410 datawas ist fibrin print,der blutfaserstoff
  343. 3420 datawas ist bluttransfusion ?,blutuebertragung
  344. 3430 datawas ist desinfektion ?,die vernichtung von krankheitskeimen
  345. 3440 datawas ist thrombose ?,die blutaderverstopfung
  346. 3450 datawie heisst das sehloch des auges ?,pupille
  347. 3460 datawelcher augenteil heisst iris ?,die regenbogenhaut
  348. 3470 datawas ist lepra ?,der aussatz
  349. 3480 datawas sind antibiotika ?,bakterienhemmende heilmittel
  350. 3490 datawas ist ein gerstenkorn ?,eine vereiterung am augenlid
  351. 3500 datawelcher koerperteil heisst pfoertner ?,der magenausgang
  352. 3510 datawie heissen die zwei unterarmknochen ?,elle und speiche
  353. 3520 datawas ist karies ?,zahnfaeule
  354. 3530 datawas ist ein karbunkel ?,ein blutgeschwuer
  355. 3540 datawas sind hormone ?,druesenausscheidungen
  356. 3550 datawozu dient die lunge ?,zur atmung
  357. 3560 datawas ist der bizeps ?,der oberarmmuskel
  358. 3570 datawas sind bazillen ?,staebchenfoermige bakterien
  359. 3580 datawas sind vakzine ?,impfstoffe
  360. 3590 datawas ist skorbut ?,eine vitaminmangelkrankheit
  361. 3600 datawas sind fermente ?,vom koerper gebildete wirkstoffe
  362. 3610 datawie heissen sehr kleine haargefaesse ?,kapillaren
  363. 3620 datawie nennt man sauerstoffarmes blut ?,venoeses blut
  364. 3630 datawo liegt das gleichgewichtsorgan ?,im ohr
  365. 3640 datawer war paul rubens ?,ein niederlaendischer maler
  366. 3650 datawer war giovanni battista tiepolo ?,ein italienischer maler
  367. 3660 datawer war tiziano vecelli ?,ein italienischer maler
  368. 3670 datawer war rainer maria rilke /,ein deutscher dichter
  369. 3680 datawer war pierre auguste renoir ?,ein franzoesischer maler
  370. 3690 datawer war alois senefelder ?,der erfinder der lithographie
  371. 3700 datawer war giuseppe verdi ?,ein italienischer komponist
  372. 3710 datawer war heinrich schliemann ?,ein deutscher archaeologe
  373. 3720 datawer war richard wagner ?,ein deutscher komponist
  374. 3730 datawer war friedlieb ferdinand runge ?,ein deutscher chemiker
  375. 3740 datawer war wilhelm busch ?,ein deutscher dichter und zeichner
  376. 3750 datawer war george washington ?,der erste praesident der usa
  377. 3760 datawer war heinrich bruening ?,ein deutscher reichskanzler
  378. 3770 datawer war archimedes ?,ein griechischer mathematiker
  379. 3780 datawer war solomon bandaranaike ?,ein ceylonesischer ministerpraesident
  380. 3790 datawas ist eine a-pruefung ?,die erste pruefung beim segelflug
  381. 3800 datawas ist die bea ?,eine britische luftfahrtgesellschaft
  382. 3810 datawie heisst der flugplatz von wien ?,schwechat
  383. 3820 datawas versteht man unter aeronautik ?,die luftfahrt
  384. 3830 datawas ist ein variometer ?,ein messgeraet fuer steigen und fallen
  385. 3840 datawas ist ein helikopter ?,ein hubschrauber
  386. 3850 datawieviele motoren hatte die do-x ?,zwoelf
  387. 3860 datawas ist eine bauchlandung ?,eine landung ohne fahrwerk
  388. 3870 datawer erfand den freitragenden fluegel ?,hugo junkers
  389. 3880 print"[158][145][145][145]";x$:fori=1to500:nexti
  390. 3890 sys64764
  391. 3900 print"[158][145][145][145]";x$:forq=1to500:nextq
  392. 3910 print"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  393. 3920 print"[145][152][180]              anleitung               [170]"
  394. 3930 print"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  395. 3940 print"[145][158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  396. 3950 print"[145][180]sinn des spiels ist es, mit moeglichst[170]"
  397. 3960 print"[145][180]wenigen hilfsbuchstaben und loesungs -[170]"
  398. 3970 print"[145][180]versuchen, die gestellte frage richtig[170]"
  399. 3980 print"[145][180]zu beantworten. die antwort besteht   [170]"
  400. 3990 print"[145][180]aus sovielen buchstaben, wie punkte zu[170]"
  401. 4000 print"[145][180]zu sehen sind.                        [170]"
  402. 4010 print"[145][180]um zu gewinnen, muss man soviele      [170]"
  403. 4020 print"[145][180]punkte, wie moeglich erreichen. fuer  [170]"
  404. 4030 print"[145][180]jeden hilfsbuchstaben, der auf dem    [170]"
  405. 4040 print"[145][180]bildschirm erscheint, wird ein punkt  [170]"
  406. 4050 print"[145][180]abgezogen. fuer jeden falschen        [170]"
  407. 4060 print"[145][180]loesungsversuch werden 10 punkte      [170]"
  408. 4070 print"[145][180]abgezogen. versucht man erst gar nicht[170]"
  409. 4080 print"[145][180]den begriff zu erraten, erhaelt man   [170]"
  410. 4090 print"[145][180]soviele minuspunkte, wie das wort lang[170]"
  411. 4100 print"[145][180]ist.                                  [170]"
  412. 4110 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  413. 4120 print"[145][180]                taste                 [170]"
  414. 4130 getx$:ifx$=""then4130
  415. 4140 goto310
  416. 4150 print"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  417. 4160 print"[145][152][180]                                      [170]"
  418. 4170 print"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  419. 4180 print"";n$
  420. 4190 print"[158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  421. 4200 forq=1to2*an
  422. 4210 print"[145][180]                                      [170]"
  423. 4220 nextq
  424. 4230 forq=1toan
  425. 4240 print"":print"":fory=1toq:print"":nexty
  426. 4250 print"[145][158]";sp$(q):print"[145]";:printspc(20);": ";pu(q)
  427. 4260 nextq
  428. 4270 print"[158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  429. 4280 ifn$="endauswertung"then4350
  430. 4290 print" weiter (w),hauptmenue(h) o. ende (e) "
  431. 4300 getx$:ifx$=""then4300
  432. 4310 ifx$="w"thensp=sp-1:a(i)=0:m=0:goto1190
  433. 4320 ifx$="h"then4410
  434. 4330 ifx$="e"theno=199:goto1180
  435. 4340 ifx$<>"w"andx$<>"e"andx$<>"h"then4300
  436. 4350 print" dem sieger herzlichen glueckwunsch !!!"
  437. 4360 print" hauptmenue (h) oder ende (e) ?":
  438. 4370 getx$:ifx$=""then4370
  439. 4380 ifx$="h"then4410
  440. 4390 ifx$="e"then3890
  441. 4400 ifx$<>"h"andx$<>"e"then4370
  442. 4410 forq=1to8
  443. 4420 sp$(q)="":pu(q)=0:next:sp=0:goto310
  444.